home *** CD-ROM | disk | FTP | other *** search
- object CalView: TCalView
- Left = 16
- Top = 112
- Width = 492
- Height = 508
- Caption = 'Calendar View'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsMDIChild
- Icon.Data = {<image000.ico>}
- Menu = MainMenu1
- Position = poDefault
- Scaled = False
- Visible = True
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 120
- TextHeight = 16
- object Panel4: TPanel
- Left = 0
- Top = 0
- Width = 484
- Height = 462
- Align = alClient
- BorderWidth = 5
- TabOrder = 0
- object CalTabs: TTabbedNotebook
- Left = 6
- Top = 6
- Width = 472
- Height = 450
- Align = alClient
- TabsPerRow = 6
- TabFont.Color = clBtnText
- TabFont.Height = -13
- TabFont.Name = 'MS Sans Serif'
- TabFont.Style = []
- TabOrder = 0
- TabStop = False
- object TTabPage
- Left = 4
- Top = 27
- Caption = '&Day'
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 464
- Height = 121
- Align = alTop
- BevelOuter = bvNone
- BorderWidth = 4
- TabOrder = 0
- OnResize = Panel1Resize
- object Label_Day: TLabel
- Left = 6
- Top = 7
- Width = 49
- Height = 48
- Alignment = taCenter
- AutoSize = False
- Caption = '31'
- Font.Color = clBlack
- Font.Height = -37
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label_DayName: TLabel
- Left = 59
- Top = 31
- Width = 174
- Height = 18
- AutoSize = False
- Caption = 'Wednesday'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label_Month: TLabel
- Left = 59
- Top = 11
- Width = 150
- Height = 18
- AutoSize = False
- Caption = 'October 1995'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Line1: TBevel
- Left = 8
- Top = 56
- Width = 289
- Height = 1
- end
- object Label3: TLabel
- Left = 192
- Top = 77
- Width = 105
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Day: xxx'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 8
- Top = 102
- Width = 209
- Height = 16
- AutoSize = False
- Caption = 'Entries for this Date: xx'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Panel2: TPanel
- Left = 307
- Top = 4
- Width = 153
- Height = 113
- Align = alRight
- BevelOuter = bvLowered
- BorderWidth = 4
- Caption = 'Panel2'
- TabOrder = 0
- object DayCal: TEPCalendar
- Left = 5
- Top = 5
- Width = 143
- Height = 103
- Align = alClient
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Day = 8
- GrayTextColor = clGray
- HeadingColor = clSilver
- HeadingFont.Color = clBlack
- HeadingFont.Height = -13
- HeadingFont.Name = 'MS Sans Serif'
- HeadingFont.Style = [fsBold]
- HeadingStyle = epdSingleLetter
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Month = 10
- Options = [epcoShowHeadings, epcoUseHeadingFont, epcoDefaultDrawing, epcoDrawAllDates, epcoDrawSelected, epcoSelectAllDates]
- ParentCtl3D = False
- ParentFont = False
- StartOfWeek = epdSunday
- TabOrder = 0
- Year = 1995
- OnChange = DayCalChange
- OnDrawDate = DayCalDrawDate
- OnSelectColor = DayCalSelectColor
- ColWidths = (
- 20
- 20
- 20
- 20
- 20
- 20
- 23)
- RowHeights = (
- 17
- 14
- 14
- 14
- 14
- 14
- 16)
- end
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 121
- Width = 464
- Height = 298
- Align = alClient
- BevelInner = bvLowered
- BevelOuter = bvNone
- BorderWidth = 4
- Caption = 'Panel3'
- TabOrder = 1
- object L_Temp: TLabel
- Left = 56
- Top = 216
- Width = 50
- Height = 16
- Caption = 'L_Temp'
- end
- object Header: THeader
- Left = 5
- Top = 5
- Width = 454
- Height = 25
- Align = alTop
- Sections.Sections = (
- #0'34'#0
- #0'31'#0'Prty'
- #0'46'#0'Time'
- #0'89'#0'Description'
- #0'109'#0'Contact Name')
- TabOrder = 0
- OnSized = HeaderSized
- end
- object Events: TListBox
- Left = 5
- Top = 30
- Width = 454
- Height = 263
- Align = alClient
- BorderStyle = bsNone
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- PopupMenu = EventsPopup
- Sorted = True
- Style = lbOwnerDrawVariable
- TabOrder = 1
- OnDblClick = ViewEvent2Click
- OnDrawItem = EventsDrawItem
- OnMeasureItem = EventsMeasureItem
- end
- end
- end
- object TTabPage
- Left = 4
- Top = 27
- Caption = '&Month'
- object MonthPanel: TPanel
- Left = 0
- Top = 0
- Width = 464
- Height = 419
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 8
- Caption = 'MonthPanel'
- TabOrder = 0
- object Label8: TLabel
- Left = 8
- Top = 8
- Width = 448
- Height = 20
- Align = alTop
- Alignment = taCenter
- AutoSize = False
- Caption = 'Label7'
- end
- object MonthCal: TEPCalendar
- Left = 8
- Top = 28
- Width = 448
- Height = 383
- Align = alClient
- Alignment = epcaTopLeft
- Day = 4
- Month = 9
- Options = [epcoShowHeadings, epcoDefaultDrawing, epcoDrawAllDates, epcoDrawGridLines, epcoDrawSelected, epcoSelectAllDates]
- PopupMenu = EventsPopup
- StartOfWeek = epdSunday
- TabOrder = 0
- Year = 1995
- OnChange = MonthCalChange
- OnDblClick = MonthCalDblClick
- OnDrawDate = MonthCalDrawDate
- OnSelectColor = MonthCalSelectColor
- ColWidths = (
- 62
- 62
- 62
- 62
- 62
- 62
- 66)
- RowHeights = (
- 17
- 59
- 59
- 59
- 59
- 59
- 61)
- end
- end
- end
- object TTabPage
- Left = 4
- Top = 27
- Caption = '&Year'
- object YearPanel: TPanel
- Left = 0
- Top = 0
- Width = 464
- Height = 419
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 8
- Caption = 'YearPanel'
- TabOrder = 0
- OnResize = YearPanelResize
- object Label9: TLabel
- Left = 8
- Top = 8
- Width = 448
- Height = 20
- Align = alTop
- Alignment = taCenter
- AutoSize = False
- Caption = 'Label7'
- end
- object YearGrid: TStringGrid
- Left = 8
- Top = 28
- Width = 448
- Height = 383
- Align = alClient
- ColCount = 13
- DefaultColWidth = 12
- DefaultRowHeight = 12
- DefaultDrawing = False
- RowCount = 43
- Font.Color = clWindowText
- Font.Height = -10
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goThumbTracking]
- ParentFont = False
- PopupMenu = EventsPopup
- ScrollBars = ssVertical
- TabOrder = 0
- OnClick = YearGridClick
- OnDblClick = MonthCalDblClick
- OnDrawCell = YearGridDrawCell
- OnSelectCell = YearGridSelectCell
- end
- end
- end
- end
- end
- object EventsPopup: TPopupMenu
- OnPopup = EventsPopupPopup
- Left = 240
- object ViewEvent2: TMenuItem
- Caption = 'View Event...'
- ShortCut = 0
- OnClick = ViewEvent2Click
- end
- object GotoEvent1: TMenuItem
- Caption = 'Go to Event...'
- ShortCut = 0
- OnClick = GotoEvent1Click
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object ShowEvents: TMenuItem
- Caption = 'Show Completed Events'
- ShortCut = 0
- OnClick = ShowEventsClick
- end
- object ShowRecurring1: TMenuItem
- Caption = 'Show Future Recurring Events'
- ShortCut = 0
- OnClick = ShowRecurring1Click
- end
- object ShowNotes1: TMenuItem
- Caption = 'Show Event Notes'
- ShortCut = 0
- OnClick = ShowNotes1Click
- end
- object N10: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Sortby2: TMenuItem
- Caption = 'Sort by'
- ShortCut = 0
- object Priority2: TMenuItem
- Tag = 1
- Caption = '&Priority'
- ShortCut = 0
- OnClick = Priority2Click
- end
- object Time2: TMenuItem
- Tag = 2
- Caption = '&Time'
- ShortCut = 0
- OnClick = Priority2Click
- end
- object Description2: TMenuItem
- Tag = 3
- Caption = '&Description'
- ShortCut = 0
- OnClick = Priority2Click
- end
- end
- object N3: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Today1: TMenuItem
- Caption = 'Today'
- ShortCut = 0
- OnClick = Today1Click
- end
- object GotoDate1: TMenuItem
- Caption = 'Go to Date...'
- ShortCut = 0
- OnClick = GotoDate1Click
- end
- object N8: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object ReminderOptions1: TMenuItem
- Caption = 'Reminder Options...'
- ShortCut = 0
- OnClick = ReminderOptions1Click
- end
- end
- object MainMenu1: TMainMenu
- Left = 325
- Top = 65533
- object Reminders1: TMenuItem
- Caption = '&Reminders'
- GroupIndex = 5
- ShortCut = 0
- OnClick = Reminders1Click
- object ViewEvent1: TMenuItem
- Caption = '&View Event...'
- Hint = 'Display all Details Relating to the Selected Event'
- ShortCut = 0
- OnClick = ViewEvent2Click
- end
- object GotoEvent2: TMenuItem
- Caption = '&Go to Event...'
- Hint = 'Locates the Address Book or Diary containing the Selected Event'
- ShortCut = 0
- OnClick = GotoEvent1Click
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object ShowEvents1: TMenuItem
- Caption = 'Show &Completed Events'
- Hint = 'Includes Completed Events in the List of Reminders Displayed'
- ShortCut = 0
- OnClick = ShowEventsClick
- end
- object ShowRecurring2: TMenuItem
- Caption = 'Show Future Recurring Events'
- Hint = 'Includes Future Events in the List of Reminders Displayed'
- ShortCut = 0
- OnClick = ShowRecurring1Click
- end
- object ShowNotes2: TMenuItem
- Caption = 'Show Event Notes'
- Hint = 'Includes Event Notes in the List of Reminders Displayed'
- ShortCut = 0
- OnClick = ShowNotes1Click
- end
- object N4: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Sortby1: TMenuItem
- Caption = 'Sort by'
- Hint = 'Choose the Event Display Order '
- ShortCut = 0
- object Priority1: TMenuItem
- Tag = 1
- Caption = '&Priority'
- Hint = 'Display the Events in Priority Order'
- ShortCut = 0
- OnClick = Priority2Click
- end
- object Time1: TMenuItem
- Tag = 2
- Caption = '&Time'
- Hint = 'Display the Events in Date and Time Order'
- ShortCut = 0
- OnClick = Priority2Click
- end
- object Description1: TMenuItem
- Tag = 3
- Caption = '&Description'
- Hint = 'Display the Events in Description Order'
- ShortCut = 0
- OnClick = Priority2Click
- end
- end
- object N5: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Today2: TMenuItem
- Caption = 'Today'
- Hint = 'Change the Calendar Date to Todays Date'
- ShortCut = 0
- OnClick = Today1Click
- end
- object GotoDate2: TMenuItem
- Caption = 'Go to Date...'
- Hint = 'Change the Calendar Date to Todays Date'
- ShortCut = 0
- OnClick = GotoDate1Click
- end
- end
- end
- object ODSHelp1: TODSHelp
- HelpText.Strings = (
- 'CalTabs'
- 'DayCal'
- 'Description1'
- 'Description2'
- 'Events'
- 'EventsPopup'
- 'GotoDate1'
- 'GotoDate2'
- 'GotoEvent1'
- 'GotoEvent2'
- 'Header'
- 'L_Temp'
- 'Label_Day'
- 'Label_DayName'
- 'Label_Month'
- 'Label3'
- 'Label4'
- 'Label8'
- 'Label9'
- 'Line1'
- 'MainMenu1'
- 'MonthCal'
- 'MonthPanel'
- 'N1'
- 'N10'
- 'N2'
- 'N3'
- 'N4'
- 'N5'
- 'N8'
- 'ODSHelp1'
- 'Panel1'
- 'Panel2'
- 'Panel3'
- 'Panel4'
- 'Priority1'
- 'Priority2'
- 'ReminderOptions1'
- 'Reminders1'
- 'ShowEvents'
- 'ShowEvents1'
- 'ShowNotes1'
- 'ShowNotes2'
- 'ShowRecurring1'
- 'ShowRecurring2'
- 'Sortby1'
- 'Sortby2'
- 'Time1'
- 'Time2'
- 'Today1'
- 'Today2'
- 'ViewEvent1'
- 'ViewEvent2'
- 'YearGrid'
- 'YearPanel')
- HelpText.HelpData = {
- 370001000000000100000000010000D500546869732063616C656E6461722061
- 6C6C6F777320646174657320746F2062652073656C656374656420717569636B
- 6C792062792073696D706C7920636C69636B696E67206F6E2074686520646179
- 2072657175697265642E0D0A0D0A497420616C736F20696E646963617465732C
- 2069662074686572652061726520616E792072656D696E646572732073636865
- 64756C656420666F72206120706172746963756C6172206461792C2062792068
- 6967686C69676874696E67207468652064617920636F6E6365726E656420696E
- 205265642E00010A000000010000000001000000000100000000010000000001
- 0000990154686973206C6973742C20646973706C617973207468652072656D69
- 6E6465727320666F72207468652063757272656E746C7920646973706C617965
- 6420646174652E2054686520666F726D617420616E64206F72646572206F6620
- 7468697320646973706C6179206D617920626520636F6E666967757265642062
- 7920757365206F6620746865202252656D696E6465727322206D656E752C206F
- 7220636C69636B696E6720746865207269676874206D6F75736520627574746F
- 6E206F6E2074686973206C6973742E0D0A0D0A54686572652061726520766172
- 696F757320696E64696361746F727320757365642077697468696E2074686973
- 206C69737420746F20646573637269626520746865207479706520616E642073
- 74617465206F6620656163682072656D696E6465722E20466F7220612066756C
- 6C206465736372697074696F6E206F6620746865736520696E64696361746F72
- 732C20636C69636B206F6E20224D6F726520496E666F726D6174696F6E2E2E2E
- 222061742074686520666F6F74206F66207468697320746578742E2000010B00
- 0000010000000001000000000100000000010000000001000000000100000000
- 0100000000010000000001000000000100000000010000D40054686973204865
- 61646572206669656C6420616C6C6F77732074686520636F6C756D6E73206265
- 696E6720646973706C617965642C20746F2062652072652D73697A6520746F20
- 7375697420726571756972656D656E742E0D0A0D0A546F2072652D73697A6520
- 6120636F6C756D6E2C20706C61636520746865206D6F75736520706F696E7465
- 72206F7665722074686520636F6C756D6E20627265616B2C207468656E20636C
- 69636B20616E64206472616720746865206D6F75736520746F20746865207265
- 7175697265642073697A652E00010A0000000100000000010000000001000000
- 0001000000000100000000010000000001000000000100000000010000000001
- 0000000001000000000100000000010000000001000000000100000000010000
- 00000100000000010000000001000000000100000000010000DD015468697320
- 63616C656E64617220766965772C20646973706C617973206120636F6D706C65
- 7465206D6F6E746820616E6420696E646963617465732077686572652072656D
- 696E64657273206172652063757272656E746C79207363686564756C65642E0D
- 0A0D0A546865206D6574686F64207573656420746F20696E6469636174652074
- 68652072656D696E64657273207363686564756C65642C20646570656E647320
- 6F6E2074686520706879736963616C2073697A65206F66207468652043616C65
- 6E64617220566965772077696E646F772E204966207468652077696E646F7720
- 6973206C6172676520656E6F7567682C20612069636F6E20666F722065616368
- 2074797065206F662072656D696E6465722077696C6C20626520646973706C61
- 7965642C206F7468657277697365207468652064617920636F6E6365726E6564
- 2077696C6C2073696D706C7920626520686967686C69676874656420696E2079
- 656C6C6F772E0D0A0D0A546F20717569636B6C7920646973706C617920746865
- 2072656D696E6465727320666F7220616E7920706172746963756C6172206461
- 74652C2073696D706C7920646F75626C652D636C69636B20746865206D6F7573
- 65206F6E2074686520646174652072657175697265642E00010A000000010000
- 0000010000000001000000000100000000010000000001000000000100000000
- 0100000000010000000001000000000100000000010000000001000000000100
- 0000000100000000010000000001000000000100000000010000E80054686973
- 20736574206F6620726561642D6F6E6C79206669656C64732C2070726F766964
- 6520696E666F726D6174696F6E20726567617264696E67207468652043616C65
- 6E64617220566965772E0D0A0D0A54686520696E666F726D6174696F6E20696E
- 636C7564657320746865206461792063757272656E746C7920646973706C6179
- 65642C20746865206E756D626572206F662072656D696E6465727320666F7220
- 74686174206461746520616E642074686520646179206E756D6265722C20696E
- 2072656C6174696F6E20746F2074686520796561722C206F6620746865206461
- 74652E00010A0000000100000000010000000001000000000100000000010000
- 0000010000000001000000000100000000010000000001000000000100000000
- 0100000000010000000001000000000100000000010000000001000000000100
- 0000000100000000010000000001000000000100000000010000000001000000
- 0001000000000100000000010000000001000000000100000000010000000001
- 0000000001000000000100000000010000000001000000000100000000010000
- 0000010000000001000000000100000000010000000001000000000100000101
- 546869732063616C656E64617220766965772C20646973706C61797320612063
- 6F6D706C657465207965617220616E6420696E64696361746573207768657265
- 2072656D696E64657273206172652063757272656E746C79207363686564756C
- 65642C20627920686967686C69676874696E67207468652072656C6576616E74
- 2064617920696E2079656C6C6F772E0D0A0D0A546F20717569636B6C79206469
- 73706C6179207468652072656D696E6465727320666F7220616E792070617274
- 6963756C617220646174652C2073696D706C7920646F75626C652D636C69636B
- 20746865206D6F757365206F6E2074686520646174652072657175697265642E
- 00010A00000001000000000100000000}
- Color = 15269887
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = True
- MaxWidth = 300
- MoreText = 'More Information...'
- Left = 381
- Top = 65533
- end
- end
-